COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	\|\\	"Address Information" card simulator
C00006 00003	\M0GACS25\ This is the font to be used for filling in the card
C00014 ENDMK
C⊗;
\|\\;	"Address Information" card simulator
\;
\; This POX file produces simulated "address information" cards.  These are the
\; cretinous cards which the Registrar insists each student fill out each quarter,
\; even though the information has not changed since n quarters ago.  This POX file
\; produces enough cards to last the next however-many quarters you like, suitable
\; for slicing in a paper cutter and then glueing onto any random computer card
\; prior to turning in to the Registrar.  (I've tried it; they don't complain.)
\;
\; To use this file, MAKE A COPY OF IT and edit it to insert the necessary info in
\; the macros below.  In each case, replace only the text between the [brackets]; do
\; not change anything else.  The text currently between the brackets indicates the
\; info required.  Note that only the number of quarters is asked for.  What the
\; current quarter is is worked out automatically.  If you do not have a font
\; containing your signature, replace those pieces of text with nulls; i.e., make
\; the macros read ...[]\;
\;
\; Having done all this, POX the copied file, and voila!
\;
\; The remaining lines on this page are the ones which require your filling in.
\;
\∞QTRS[Number of quarters for which you want cards]\;
\∞NAME[Your name, last name first]\;
\∞STNO[Your student number]\;
\∞SEX[Your sex (M or F, presumably)]\;
\∞CLASS[Your class]\;
\∞MAJOR[Your major]\;
\∞POBOX[Your Stanford P.O. box, if any (null if none)]\;
\∞AREA[Your local-phone area code]\;
\∞PHONE[Your local phone]\;
\∞ADDR[Your local street address]\;
\∞CITY[Your local city of residence]\;
\∞ZIP[Your local zip code]\;
\∞EMERG[Person to be contacted in case of emergency]\;
\∞EADDR[Above person's street address]\;
\∞ECITY[Above person's city, state, zip]\;
\∞EPHON[Above person's phone (including area code)]\;
\∞SIGN[(File name and PPN of font containing your signature (null if no such font))]\;
\; Above file name must be enclosed in parens, as (FOO.FNT[BAR,BAZ]).
\∞SCHR[Characters in above font which form your signature (null if no such font)]\;
\∞DMODE[0 to use current date, 1 to "guess" date for each quarter, 2 to omit date]\;
\,
\M0GACS25;\; This is the font to be used for filling in the card
\;
\M1NGR24;\M2NGB24;\M3CAPS13;\M4NGB13;\M5NONSB;\M6NONSBI;\M7PLT11;\;
\M8DRCB44;\M9DRCT20;\MAMATH30;\;
\⊂'302455;\←=1;\→1\←=7;\λ\;
\8eval(x)[⊗x⊗]\;
\!eval((\∞ff[)\A'14;(]));\;
\8ifelse(ifb,ifnot)[\P\←Q\%=3;\?eval((\p⊗ifnot⊗\P));\←Q\%=3;\¬1\?eval((\p⊗ifb⊗\P));\p]\;
\∞dec[\P\¬=10;\?eval(0);\p\D∀]\;
\∞today[\u'400101;\L=-18;\→D\/=372;\+=1964;\D∀-\←D\/=31;\%=12;\+1\!dec;-\←D\%=31;\+1\!dec;]\;
\∞date0[  \!today;]\∞date1[\!eval((\!D)\DQ;);, 19\←Q\/=2;\+d\D∀]\∞date2[]\;
\∞s[\←.\+0\→.]\;
\∞dash[\←.\+=22;\→.-\←.\-=3;\→.-\←.\+=22;\→.]\;
\8V(x)[\←l\+=⊗x⊗;\V∀t∀T1]\;
\u'400101;\L=-18;\→D\/=31;\*=69;\+D\→D\/=1200;\+=64;\→d\←D\%=1200;\+=101;\; m*100+dy
\P\/=321;\_1\+1\→D\p\P\/=601;\_1\+D\→D\p\/=1001;\*=3;\¬D\→Q\; 0-3=aut-sum
\_1\¬d\→d\;
\∞Q0[AUTUMN QUARTER]\∞Q1[WINTER QUARTER]\∞Q2[SPRING QUARTER]\∞Q3[SUMMER QUARTER]\;
\∞D0[\←w \+∀\¬.\→.September 22]\∞D1[December 1]\∞D2[ March 1]\∞D3[ June 22]\;
\∞R42[\!ifelse(R-42B,R-42);]\;
\;
\←=601;\+L\→l\+=787;\→r\←=400;\→T\-=87;\→t\←=74;\→I\;
\; T is top horiz line, t top of card, I incr betw lines, l vertical line
\otri[0]\←=14;\Ieval((\→0\-=15;\→y\←0\/=2;\¬=8;\→x\+0\-1\otr2[Vxy∀y=2;]\&tr3←tri&tr2,=0;=0;;\∂←tri;\∂←tr2;\∂tri←tr3;\←0\-=2;));\;
\;
\∞EVERYTHING[\P\; this macro does it all (once)
\←T\→y\←L\→x\←=7;\Ieval((\P\∧=3;\_1\+∀\¬=3;\Vxyry∀\←l\→x\←y\+I\→y\p\-1));\;
\VlTly1\←y\+=5;\→y\←l\+=44;\→0\+=475;\Qr\→r\V0yry1\+=24;\→0\+=244;\V0y∀y1\;
\←y\+=9;\→S\-=18;\Y∀\←r\→s\F7\←.\+=12;\→.\!R42;\+1\→.\!R42;\⊗
\YS\c\F3STUDENT\f4'S SIGNATURE\;
\←r\qr\Ql\→l\cDATE
\ql\!V(241);\!V(580);\!V(639);\!V(722);\;
\←T\+I\→0\←l\+=270;\P\V∀T∀01\+=132;\→x\;
\←0\-=8;\Vx0x∀=2;\-=3;\→0\-=10;\Vx0x∀=2;\-=3;\→0\-=10;\Vx0x∀=2;\-=3;\→0\-=8;\Vx0x∀=2;\;
\p\Qr\→r\←T\+=11;\Y∀\cSTANFORD P\f4.O\f4. BOX\f4, 
\+=17;\Y∀\cIF ANY 
\-=10;\→0\Ql\←r\→l\←x\→r\Y0\c\f4(AREA CODE\f4)
\ql\qr\←I\*=5;\+T\→y\+I\→Y\←l\+=523;\V∀y∀Y1\;
\QL\←l\+=12;\→L
\←T\+I\+=11;\Y∀LOCAL STREET ADDRESS
\!ifelse((\;
\+I\Y∀CITY\P\←.\+=420;\→.ZIP\+=125;\→.THIS ADDRESS IS\f7:\;
\-=17;\→.\↓=20;\fA1 \↓=17;NEW\→.\↓=45;\fA6\→.\fA1 \←.\↓=35;SAME AS\→.\↓=50;LAST QUARTER\⊗\;
\p\P\-=11;\→y\+I\→Y\←l\+=585;\V∀y∀Y1\p
),(\;
\+I\Y∀CITY\P\←.\+=520;\→.\pZIP
));\;
\+I\Y∀PERSON TO BE CONTACTED IN CASE OF EMERGENCY
\+I\Y∀ADDRESS \f4(STREET\f4, CITY\f4, STATE\f4, ZIP\f4)
\+I\Y∀\←.\+=523;\→.PHONE
\Ql\Qr\←l\+=580;\→l\+=60;\→r\←T\-=23;\Y∀\cSEX\;
\←r\→l\+=80;\→r\cCLASS\;
\←r\→l\+=75;\→r\cMAJOR\;
\qr\ql\c\F9\←.\+=30;\→.\←=2;\→0S\!s;T\!s;U\!s;D\!s;E\!s;N\!s;T\!s; \!s;N\!s;O\!s;.\!s;→→(\!s;O\!s;P\!s;T\!s;I\!s;O\!s;N\!s;A\!s;L\!s;)
\←x\+=3;\→L
\←T\+=9;\Y∀\F3LOCAL PHONE
\qL\QL\←l\-=12;\→R\¬l\+L\→L\←I\*=3;\+T\!ifelse((\-=35;),(\-=20;));\Y∀\;
\!ifelse((\;
\J\F1Complete this card and exchange it for your
Permit to Register.\.
\y=-2;
\JIf you are changing your P.O. box or your local
or permanent address, please also complete a
\←1\→0change\!s; card\!s; at\!s; the\!s; Information\!s; window,\!s; and
write the change on your PTR.\.
\y=-2;
\JThis card will be used by the Registrar's Office
and \[=5;1not\] as input to the computer.),(\;
\J\F2For Advance Registration\F1\!dash;Complete this card
and turn it in at the Final Step.\.
\y=5;
\J\F2For Regular Registration\F1\!dash;Complete this card
and exchange it for your Permit to Register.\.
\y=5;
\JThis card will be used by the Registrar's Office
and not as input to the computer.));\.
\←T\+I\F8\+=5;\-H\Y∀\C\←1\→0A\!s;D\!s;D\!s;R\!s;E\!s;S\!s;S\!s; \!s;I\!s;N\!s;F\!s;O\!s;R\!s;M\!s;A\!s;T\!s;I\!s;O\!s;N  
\←T\+I\+I\F5\-H\!ifelse((\+=5;),(\-=7;));\Y∀\C\!eval((\!Q)\DQ(;));  19\Dd-\←d\+1\D∀    
\←T\-=20;\Y∀\C\F3\Htri; STUDENT\f4'S NAME \f4(LAST NAME FIRST\f4) \Htri;  
\-=4;\→0\←R\-=30;\→L
\Y0\F6PLEASE PRINT!
\;
\;	Above garbage produces the blank card; now to fill it in.
\;
\qL\F0
\←T\-=35;\-H\Y∀\←.     \!NAME;\+l\-L\+=241;\→.   \!STNO;\+=339;\→. \!SEX;\N
\+=59;\→.  \!CLASS;\+=83;\→. \!MAJOR;
\←l\QL\→L
\←T\+I\-=9;\-H\P\Y∀\←.    \!POBOX;\+=270;\→.  \!AREA;\+=132;\→.   \!PHONE;
\p\+I\P\Y∀    \!ADDR;
\p\+I\P\Y∀\←.    \!CITY;\!ifelse((\+=405;),(\+=560;));\→.    \!ZIP;
\p\+I\P\Y∀    \!EMERG;
\p\+I\P\Y∀    \!EADDR;
\p\+I\Y∀\←.    \!ECITY;\+=523;\→.  \!EPHON;
\F1\otest[.*\!SIGN;]\2test;\→0\1test;\+0\-w*\-=3;\?eval((\MF)\!SIGN;(;));\;
\←S\-H\Y∀\←s\Qr\→r\c\!SCHR;\F0
\qr\←S\-=20;\-H\Y∀\←.\+=543;\→.\!eval((\←=)\!DMODE;;);\!eval((\!date)\D∀;);
\qL
\←Q\+1\/=4;\+d\→d\←Q\+1\%=4;\→Q\p\-1\?ff;]\; end of EVERYTHING
\;
\!eval((\←=)\!QTRS;;);\IEVERYTHING;